%
O6034(TOOTH PROCESS SEQUENCE DECISION) 
IF[#541GT0]GOTO2 
 
(ALL TOOTH_PITCH STABILIZATION)
#1=[#560+1]MOD2
IF[#1EQ1]GOTO1 
IF[#1EQ0]THEN#512=ABS[#540]-1+FIX[#560/2]
IF[#512GE#500]THEN#512=#512-#500 
GOTO3
N1 
IF[#1EQ1]THEN#512=ABS[#541]+ABS[#540]-1-FIX[#560/2]
IF[#512GE#500]THEN#512=#512-#500 
GOTO3
 
N2 
(SELECT TOOTH IN SEQUENCE) 
#512=ABS[#540]+#560-2
IF[#512GE#500]THEN#512=#512-#500 
 
N3 
IF[#560GTABS[#541]]THEN#512=-1 
#560=#560+1
 
M99
%